home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / howtor_1 / usercomp.bas < prev   
Encoding:
BASIC Source File  |  1999-08-20  |  656 b   |  19 lines
  1. Attribute VB_Name = "UserComputerName"
  2. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3. Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  4. Private s$, sz&, cnt&, dl&
  5.  
  6. Public Function UserName()
  7.     cnt& = 200
  8.     s$ = String$(200, 0)
  9.     dl& = GetUserName(s$, cnt&)
  10.     UserName = UCase(Left$(s$, cnt&))
  11. End Function
  12.  
  13. Public Function ComputerName()
  14.     cnt& = 200
  15.     s$ = String$(200, 0)
  16.     dl& = GetComputerName(s$, cnt&)
  17.     ComputerName = UCase(Left$(s$, cnt&))
  18. End Function
  19.